home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
94xx
/
9404a.d64
/
blaster+ install
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
3KB
|
104 lines
5 DIM P$(15),X(15),AD(15)
6 FORT=0TO15:READP$(T),X(T),AD(T)
7 AD(T)=AD(T)+47104:NEXT
10 ZA$(1)="(1-[194]YTE-[218]AHL) "
11 ZA$(2)="(2-[194]YTE-[218]AHL) "
12 ZA$(3)="(ON/OFF) "
13 ZA$(4)="(TURBO/SERIAL)"
19 POKE53281,0:POKE53280,0
20 PRINTCHR$(14)"[147][154][193]SS[194]LASTER+ [208]REFS[201]NSTALL[146]";
30 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
40 GOSUB4000
50 GOSUB5000
60 PRINT"[215]ERTE AENDERN [J/N]?"
65 GETA$:IFA$="J"THEN70
66 IFA$<>"N"THEN65
67 GOTO6000
70 GOSUB3500:GOSUB5000:ED=1
75 FORT=0TO15:W=T
76 PRINT""P$(T);ZA$(X(T)):GOSUB5025
78 PRINT"[145]";:GOSUB2000
79 FORX=20TO24:POKE781,X:SYS59903:NEXTX
80 POKEAD(T),LO:IFX(T)=2THENPOKEAD(T)+1,HI
85 NEXT:GOTO50
1000 DATA"[210][193][205]-[211]TART :",2,2066
1010 DATA"[210][193][205]-[197]NDE :",2,2068
1020 DATA"[207]PCODETABULATOR :",1,2168
1030 DATA"[205]NEMNONICTABUL. :",1,2169
1040 DATA"[195]OMMENTTABULATOR:",1,2170
1050 DATA"[198]ASTSCROLLSPEED :",1,2171
1060 DATA"[193]RROWSPEED :",1,2172
1070 DATA"[194]ORDERCOLOUR :",1,2173
1080 DATA"[194]ACKGROUNDCOLOUR:",1,2174
1090 DATA"[211]CRIPTCOLOUR :",1,2175
1100 DATA"[195]URSORCOLOUR :",1,2176
1110 DATA"[193]RROWCOLOUR :",1,2177
1120 DATA"[208]REFTAKEMODE :",1,2180
1130 DATA"[214]ISFASTLOAD :",3,2179
1140 DATA"[193]SSEMBLERMODE :",4,2154
1150 DATA"[204]ONGASSEMBLY :",3,2178
2000 REM INPUT
2020 POKE19,1:INPUTZA$:POKE19,0:PRINT
2030 ONX(T)GOTO2100,2200,2300,2400
2100 REM EIN-BYTE-ZAHL
2110 GOSUB3000:IFHI>0THEN 2000
2120 RETURN
2200 REM ZWEI-BYTE-ZAHL
2210 GOTO3000:REM RETURN
2300 REM ON/OFF
2310 HI=0:IFZA$="OFF"THENLO=0:RETURN
2315 IFZA$<>"ON"THENGOTO2000
2320 LO=1:RETURN
2400 HI=0:LO=ASC(ZA$+CHR$(0)):IFLO<84ANDLO>85THEN2000
2410 RETURN
3000 REM HEXDEZ WANDLER
3010 Z=0:B=16
3020 IFLEFT$(ZA$,1)<>"$"THENB=10:GOTO3030
3025 ZA$=RIGHT$(ZA$,LEN(ZA$)-1)
3030 FORS=1TOLEN(ZA$):H=ASC(MID$(ZA$,S))-48:Z=Z*B+H+7*(H>9):NEXT
3050 HI=INT(Z/256):LO=Z-HI*256
3060 RETURN
3100 REM DEZHEX WANDLER
3110 ZA$="":FORP=0TO0:Z=Z/16:S=(Z-INT(Z))*16:ZA$=CHR$(55+S+7*(S<10))+ZA$:P=-Z
3115 NEXT:ZA$="$"+ZA$
3120 RETURN
3500 REM LOESCHER
3510 FORX=2TO24:POKE781,X:SYS59903:NEXT:RETURN
3600 REM WAITER
3610 POKE198,0:WAIT198,1:POKE198,0:RETURN
4000 REM LOADPREFS
4010 GOSUB3500:PRINT " [194]ITTE [193]SS[194]LASTER+ [196]ISKETTE EINLEGEN!":GOSUB3600
4020 OPEN2,8,2,"BED,P,R":IFST=0THEN4026
4025 CLOSE2:GOTO4000
4026 Y=49163
4030 GET#2,A$:A=ASC(A$+CHR$(0))
4040 POKEY,A:Y=Y+1
4050 IFST=0THEN4030
4060 CLOSE2:RETURN
5000 REM PRINTPREFS
5010 GOSUB3500:PRINT"" :ED=0
5020 FORW=0TO15:PRINT" "P$(W);
5025 ZA=PEEK(AD(W)):IFX(W)=2THENZA=ZA+256*PEEK(AD(W)+1):Z=ZA:GOSUB3100:PRINTZA$
5030 IFX(W)<>3THEN5040
5031 IFPEEK(AD(W))=0THENPRINT"OFF":GOTO5050
5032 PRINT"ON"
5040 IFX(W)<>4THEN5050
5041 IFPEEK(AD(W))=ASC("S")THENPRINT"SERIAL":GOTO5050
5042 PRINT"TURBO"
5050 IFX(W)=1THENPRINTZA
5052 IFEDTHENRETURN
5055 NEXT:RETURN
6000 REM PREFSSAVE
6010 PRINT"[201]N DIESEM [218]USTAND ABSPEICHERN[J/N]?"
6020 GETA$:IFA$="J"THEN6100
6030 IFA$<>"N"THEN6020
6040 END
6100 GOSUB3500:PRINT"[194]ITTE WARTEN..."
6110 OPEN1,8,15,"S:BED":CLOSE1
6120 OPEN2,8,2,"BED,P,W"
6130 PRINT#2,CHR$(13)CHR$(8);
6140 Z=49165
6150 PRINT#2,CHR$(PEEK(Z));:Z=Z+1
6160 IFZ<YTHEN6150
6170 CLOSE2:PRINT"[147][198]ERTIG..."